home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / efs / efs-dired-mule.el.z / efs-dired-mule.el
Encoding:
Text File  |  1998-05-21  |  1.9 KB  |  56 lines
  1. ;; -*-Emacs-Lisp-*-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;;
  4. ;; File:         efs-dired.el
  5. ;; Release:      $efs release: 1.15 $
  6. ;; Version:      #Revision: 1.1 $
  7. ;; RCS:          
  8. ;; Description:  Makes efs-dired.el work with MULE.
  9. ;; Author:       Ishikawa Ichiro <ichiro@ccsr.u-tokyo.ac.jp>
  10. ;; Created:      Sat Aug 20 05:25:55 1994
  11. ;; Modified:     Sun Nov 27 12:19:17 1994 by sandy on gandalf
  12. ;; Language:     Emacs-Lisp
  13. ;;
  14. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  15.  
  16. (defconst efs-dired-mule-version
  17.   (concat (substring "$efs release: 1.15 $" 14 -2)
  18.       "/"
  19.       (substring "#Revision: 1.1 $" 11 -2)))
  20.  
  21. ;; Keep the byte-compiler happy
  22. (defvar efs-version-host-types)
  23. (defvar efs-dired-host-type)
  24.  
  25. (defun efs-dired-find-file (&optional coding-system)
  26.   "Documented as original"
  27.   (interactive "ZCoding-system: ")
  28.   (let ((file (dired-get-filename)))
  29.     (if (memq efs-dired-host-type efs-version-host-types)
  30.     (setq file (efs-internal-file-name-sans-versions
  31.             efs-dired-host-type file t)))
  32.   (find-file file coding-system)))
  33.  
  34. (defun efs-dired-find-file-other-window (&optional display coding-system)
  35.   "Documented as original"
  36.   (interactive "P\nZCoding-system: ")
  37.   (if display
  38.       (dired-display-file coding-system)
  39.     (let ((file (dired-get-filename)))
  40.       (if (memq efs-dired-host-type efs-version-host-types)
  41.       (setq file (efs-internal-file-name-sans-versions
  42.               efs-dired-host-type file t)))
  43.       (find-file-other-window file coding-system))))
  44.  
  45.  
  46. (defun efs-dired-display-file (&optional coding-system)
  47.   "Documented as original"
  48.   (interactive "ZCoding-system: ")
  49.   (let ((file (dired-get-filename)))
  50.     (if (memq efs-dired-host-type efs-version-host-types)
  51.     (setq file (efs-internal-file-name-sans-versions
  52.             efs-dired-host-type file t)))
  53.     (display-buffer (find-file-noselect file coding-system))))
  54.  
  55. ;;; end of efs-dired-mule.el
  56.